home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
os2
/
os2mb108.zip
/
install.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-06-30
|
10KB
|
338 lines
/* Recreate objects script.
*
* Generated via Object Desktop Package File 'MBase'.
* Modified by Marsiglietti Max 1997.
*/
/* Register with REXX API extensions. */
Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
Call SysLoadFuncs
'@cls'
/* Get the boot drive location */
OurPath = Value( 'SOMDDIR',,'OS2ENVIRONMENT' )
BootDrv = lastpos("\OS2\ETC\DSOM", OurPath)
say "MaxBase installation program for OS/2 Warp."
say "------- ------------ ------- --- ---- -----"
say
if BootDrv = 0 then
do
do until BootDrv \= ""
call charout "stdout:", "Please enter your boot drive letter [e.g., C] : "
pull BootDrv
end
if right(BootDrv, 1) \= ':' then
BootDrv = BootDrv || ":"
end
else
do
BootDrv = substr(OurPath, BootDrv - 2, 1)
do
say "Please enter your boot drive letter [e.g., C]"
call charout "stdout:", "(Default [pressing ENTER] is "BootDrv") : "
pull ask
end
if ask \= "" then BootDrv = ask
if right(BootDrv, 1) \= ':' then
BootDrv = BootDrv || ":"
end
curdir = directory()
'@cls'
say "MaxBase installation program for OS/2 Warp."
say "------- ------------ ------- --- ---- -----"
say
say "This installation procedure will create the WPS"
say " objects you will need to use MaxBase and its"
say " C/S counterparts, Sportello and RXDBServer."
say "Also, if this is your first MaxBase installation,"
say " your "bootdrv"\config.sys file will be changed."
say
say "Close this window now to abort, or press ENTER to"
say "proceed with the installation."
Parse Upper Pull Answer
'@start e readme.os2'
'@start e readme.1st'
'@copy mbase.bmp 'BootDrv'\os2\bitmap >nul'
CreateCollision = 'Replace'
InnF=BootDrv'\CONFIG.MBS'
OutF=BootDrv'\CONFIG.SYS'
'@copy 'OutF' 'InnF' >nul'
'@del 'OutF
msg.1 = "Warning: ===> No system files changed. <==="
msg.2 = "Warning: ===> You can start using MaxBase right now. <==="
classpathpresent = 0
do until lines(InnF) = 0
InStr = linein(InnF)
if (translate(Left(word(instr, 2), 9)) = "CLASSPATH") then
classpathpresent = 1
if (translate(Left(word(instr, 2), 9)) = "CLASSPATH") & (pos(translate(curdir"\client"), translate(instr)) = 0) then
do
instr = strip(instr)
if right(instr, 1)\=";" then
instr = instr || ";"
instr = instr || curdir"\NetRexxR.zip;"curdir";"curdir"\taligent.zip;"curdir"\client;"curdir"\server;.\.;"
msg.1 = "Warning: ===> "BootDrv"\Config.sys changed. <==="
msg.2 = "Warning: ===> You must now restart your computer before using MaxBase. <==="
end
call lineout outf, instr
end
if classpathpresent=0 then
do
call lineout outf, "SET CLASSPATH=" || curdir"\NetRexxR.zip;"curdir";"curdir"\taligent.zip;"curdir"\client;"curdir"\server;.\.;"
msg.1 = "Warning: ===> "BootDrv"\Config.sys changed. <==="
msg.2 = "Warning: ===> You must now restart your computer before using MaxBase. <==="
end
say "Done registering changes to classpath."
say
say msg.1
say msg.2
say
Call CreateObjects
Exit
CreateObject: procedure
Parse Arg Class, Title, Location, Setup, Collision
rc = SysCreateObject( Class, Title, Location, Setup, Collision )
If rc <> 1 Then
Say ' > failed to create ['Title' | 'Class'] at location ['Location']'
return rc
CreateObjects:
say " | 0% | 50% | 100%"
say " V V V"
call charout "stdout:", "Registering WPS objects, please wait "
rc = CreateObject( 'WPFolder',,
'MaxBase',,
'<WP_DESKTOP>',,
'NOPRINT=YES;'||,
'DEFAULTVIEW=CONTENTS;'||,
'ICONPOS=90,75;'||,
'ICONVIEWPOS=25 25 55 50;'||,
'SELFCLOSE=1;'||,
'BACKGROUND='BootDrv'\OS2\BITMAP\mbase.bmp,N,,I,255 255 255;'||,
'ALWAYSSORT=YES;'||,
'TREEVIEW=LINES,MINI;'||,
'FOLDERICONBACKGROUNDCOLOR=255 255 255;'||,
'ICONTEXTBACKGROUNDCOLOR=255 255 255;'||,
'ICONFILE=' || curdir || '\ICONS\MAIN_CL.ICO;'||,
'ICONNFILE=1,' || curdir || '\ICONS\MAIN_OP.ICO;'||,
'OBJECTID=<MaxBase>',,
CreateCollision )
call charout "stdout:", "."
rc = CreateObject( 'WPFolder',,
'Docs',,
'<MaxBase>',,
'NOPRINT=YES;'||,
'DEFAULTVIEW=CONTENTS;'||,
'ICONPOS=85,63;'||,
'ICONVIEWPOS=25 35 50 30;'||,
'SELFCLOSE=1;'||,
'ALWAYSSORT=YES;'||,
'TREEVIEW=LINES,MINI;'||,
'ICONFILE=' || curdir || '\ICONS\DOC_CL.ICO;'||,
'ICONNFILE=1,' || curdir || '\ICONS\DOC_OP.ICO;'||,
'OBJECTID=<MB_DOCS>',,
CreateCollision )
call charout "stdout:", "."
rc = CreateObject( 'WPShadow',,
'db_store',,
'<MaxBase>',,
'NOPRINT=YES;'||,
'DEFAULTVIEW=UNKNOWN;'||,
'HELPPANEL=1277;'||,
'SHADOWID=' || curdir || '\db_store;'||,
'ICONPOS=68,90',,
CreateCollision )
call charout "stdout:", "."
rc = CreateObject( 'WPShadow',,
'Readme.os2',,
'<MB_DOCS>',,
'DEFAULTVIEW=UNKNOWN;'||,
'HELPPANEL=4082;'||,
'SHADOWID=' || curdir || '\Readme.os2;'||,
'ICONPOS=87,19',,
CreateCollision )
call charout "stdout:", "."
rc = CreateObject( 'WPShadow',,
'Readme.1st',,
'<MB_DOCS>',,
'DEFAULTVIEW=UNKNOWN;'||,
'HELPPANEL=4082;'||,
'SHADOWID=' || curdir || '\Readme.1st;'||,
'ICONPOS=87,19',,
CreateCollision )
call charout "stdout:", "."
rc = CreateObject( 'WPShadow',,
'SportelloApplet.doc',,
'<MB_DOCS>',,
'DEFAULTVIEW=UNKNOWN;'||,
'HELPPANEL=4082;'||,
'SHADOWID=' || curdir || '\client\SportelloApplet.doc;'||,
'ICONPOS=87,19',,
CreateCollision )
call charout "stdout:", "."
rc = CreateObject( 'WPShadow',,
'MaxBase.doc',,
'<MB_DOCS>',,
'DEFAULTVIEW=UNKNOWN;'||,
'HELPPANEL=4082;'||,
'SHADOWID=' || curdir || '\MaxBase.doc;'||,
'ICONPOS=87,19',,
CreateCollision )
call charout "stdout:", "."
rc = CreateObject( 'WPShadow',,
'RXDbase.doc',,
'<MB_DOCS>',,
'DEFAULTVIEW=UNKNOWN;'||,
'HELPPANEL=4082;'||,
'SHADOWID=' || curdir || '\RXDbase.doc;'||,
'ICONPOS=87,19',,
CreateCollision )
call charout "stdout:", "."
rc = CreateObject( 'WPShadow',,
'RXDBclient.doc',,
'<MB_DOCS>',,
'DEFAULTVIEW=UNKNOWN;'||,
'HELPPANEL=4082;'||,
'SHADOWID=' || curdir || '\Client\RXDBclient.doc;'||,
'ICONPOS=87,19',,
CreateCollision )
call charout "stdout:", "."
rc = CreateObject( 'WPShadow',,
'Sportello.doc',,
'<MB_DOCS>',,
'DEFAULTVIEW=UNKNOWN;'||,
'HELPPANEL=4082;'||,
'SHADOWID=' || curdir || '\Client\Sportello.doc;'||,
'ICONPOS=87,19',,
CreateCollision )
call charout "stdout:", "."
rc = CreateObject( 'WPProgram',,
'Open local DB',,
'<MaxBase>',,
'NOTDEFAULTICON=YES;'||,
'NOPRINT=YES;'||,
'DEFAULTVIEW=RUNNING;'||,
'ICONPOS=2,6;'||,
'ASSOCFILTER=*.DAT,*.DBF,*.LDB;'||,
'EXENAME=' || curdir || '\MAXBASE.CMD;'||,
'PARAMETERS=%**F;'||,
'PROGTYPE=WINDOWABLEVIO;'||,
'MINIMIZED=YES;'||,
'ICONFILE=' || curdir || '\ICONS\MaxBase.ICO',,
CreateCollision )
call charout "stdout:", "."
rc = CreateObject( 'WPProgram',,
'Share DB on the network',,
'<MaxBase>',,
'NOTDEFAULTICON=YES;'||,
'NOPRINT=YES;'||,
'DEFAULTVIEW=RUNNING;'||,
'HELPPANEL=15684;'||,
'ICONPOS=88,82;'||,
'ICONVIEWPOS=36 76 38 16;'||,
'ASSOCFILTER=*.DAT;'||,
'EXENAME=' || curdir || '\server\runserver.cmd;'||,
'PARAMETERS=/d:%**F /p:[Port?] /l:log.txt /a:[Password? ENTER=none];'||,
'PROGTYPE=WINDOWABLEVIO;'||,
'NOAUTOCLOSE=YES;'||,
'ICONFILE=' || curdir || '\ICONS\RXDBServer.ICO',,
CreateCollision )
call charout "stdout:", "."
rc = CreateObject( 'WPProgram',,
'Access a remote DB',,
'<MaxBase>',,
'NOTDEFAULTICON=YES;'||,
'NOPRINT=YES;'||,
'DEFAULTVIEW=RUNNING;'||,
'HELPPANEL=15684;'||,
'ICONPOS=16,6;'||,
'EXENAME=' || curdir || '\client\runclient.cmd;'||,
'PARAMETERS=[Host?] [Port?] [Password? ENTER=none];'||,
'PROGTYPE=WINDOWABLEVIO;'||,
'MINIMIZED=YES;'||,
'ICONFILE=' || curdir || '\ICONS\RXDBClient.ICO',,
CreateCollision )
call charout "stdout:", "."
rc = CreateObject( 'WPFolder',,
'NewDB',,
'<MaxBase>',,
'TEMPLATE=YES;'||,
'DEFAULTVIEW=CONTENTS;'||,
'HELPPANEL=15685;'||,
'ICONPOS=54,82;'||,
'SELFCLOSE=1;'||,
'ICONVIEWPOS=38 73 33 18;'||,
'ALWAYSSORT=YES;'||,
'BACKGROUND=(none),,,C,199 199 199;'||,
'ICONFILE=' || curdir || '\ICONS\MB_CL.ICO;'||,
'ICONNFILE=1,' || curdir || '\ICONS\MB_OP.ICO;'||,
'OBJECTID=<NewDB>',,
CreateCollision )
call SysCopyObject curdir'\rxdb.dat', '<NewDB>'
call charout "stdout:", "."
rc = CreateObject( 'WPUrl',,
'Get the latest Java 1.02 runtime for OS/2!',,
'<MaxBase>',,
'DEFAULTVIEW=CONTENTS;'||,
'URL=ftp://ftp.hursley.ibm.com/pub/java/fixes/os2/102/runtime.exe;'||,
'ICONPOS=56,47',,
CreateCollision )
call charout "stdout:", "."
rc = CreateObject( 'WPShadow',,
'readme.plugins',,
'<MB_DOCS>',,
'DEFAULTVIEW=UNKNOWN;'||,
'HELPPANEL=4082;'||,
'SHADOWID=' || curdir || '\readme.plugins;'||,
'ICONPOS=87,19',,
CreateCollision )
say "."
rc = CreateObject( 'WPProgram',,
'SmartGuide to MaxBase',,
'<MaxBase>',,
'NOPRINT=YES;'||,
'DEFAULTVIEW=RUNNING;'||,
'HELPPANEL=15684;'||,
'ICONPOS=16,6;'||,
'STARTUPDIR=' || curdir || ';' ||,
'EXENAME=sguide.exe;'||,
'PARAMETERS=' || curdir || '\mbase.sgs;',,
CreateCollision )
say "Done registering objects on the Workplace Shell."
return